home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 96 / 096.d81 / marketplace 96 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  90 lines
  1. 2 poke53281,0:poke53280,0
  2. 4 print"[147][129]           [204][207][193][196][211][212][193][210] [205][193][210][203][197][212][208][204][193][195][197]
  3. 6 [153]"    1  cont(NULL)rint (NULL)arketplace (NULL)rder ascorm
  4. 8 print"    2  [154][210]eturn to [204][207][193][196][211][212][193][210]
  5. 10 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]10
  6. 12 [139]a$[178]"1"[167]24
  7. 14 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  8. 16 [139]er[179][177]63[167] [128]
  9. 18 [153]"loadstopload"[199](34)"hello connect"[199](34)",8
  10. 20 print"run"
  11. 22 poke631,13:poke632,13:poke198,2:end
  12. 24 open4,4,7:close4
  13. 26 ifst<>-128then34
  14. 28 poke646,2+d:poke214,10:print:print"   [212]urn your printer on - press a key[145]"
  15. 30 geta$:d=5-d:ifa$=""then28
  16. 32 goto24
  17. 34 poke214,10:print:print"[158]   [211]et top of form and press any key."
  18. 36 geta$:ifa$=""then36
  19. 40 open4,4,7:cmd4
  20. 42 sp$="                                                                    "
  21. 44 d$="------------------------------------------------------------------"
  22. 46 e$="        ========================================================"
  23. 48 goto110
  24. 50 printleft$(sp$,40-(len(m$)/2))m$
  25. 52 return
  26. 110 m$="[204][207][193][196][211][212][193][210] [205][193][210][203][197][212][208][204][193][195][197] [207][210][196][197][210] [198][207][210][205]":gosub50:print
  27. 120 m$="1 - 8 0 0 - 8 3 1 - 2 6 9 4":gosub50:print
  28. 130 m$="[207][198][198][197][210] #: [205][208][204][211]96      [207][198][198][197][210] [197][216][208][201][210][197][211]: 6/15/92":gosub50
  29. 140 printe$
  30. 150 print"        [201][212][197][205] [195][207][196][197]              [209][213][193][206][212][201][212][217]      [208][210][201][195][197]        [193][205][207][213][206][212]
  31. 160 [153]"        str$val(NULL)len(NULL)right$(NULL)(NULL)right$(NULL)(NULL)                          valatnlenleft$          str$(NULL)val
  32. 170 printe$
  33. 180 m$="[212][207][208] [211][197][204][204][201][206][199] [194][193][195][203] [201][211][211][213][197][211]":gosub50
  34. 185 print
  35. 200 print"        [193][204][204] 10 [201][211][211][213][197][211] (one item)            [216] $49.95 = $"
  36. 205 printleft$(sp$,33)"-------                --------"
  37. 210 print"        [201][206][196][201][214][201][196][213][193][204] [194][193][195][203] [201][211][211][213][197][211]              [216] $6.95  = $"
  38. 215 printleft$(sp$,33)"-------                --------"
  39. 220 print"        [195]ircle the issue(s) you wish to purchase.
  40. 230 [153]
  41. 240 [153]"             85  40  34  32  29  24  25  13  11  6"
  42. 255 [153]
  43. 260 [153][200](sp$,46)"(NULL)(NULL)peek(NULL)(NULL)(NULL)atn(NULL) $"
  44. 270 [153][200](sp$,56)"--------"
  45. 280 [153]"                (NULL)ouisiana residents add 4% sales tax.  $
  46. 285 printleft$(sp$,56)"--------"
  47. 290 print"        [211]hipping & [200]andling: $3.50 for up to 3 issues;
  48. 300 [153]"        $.50 for each additional issue                 $
  49. 320 printleft$(sp$,56)"--------"
  50. 325 print
  51. 330 printleft$(sp$,49)"[212][207][212][193][204] $"
  52. 335 printleft$(sp$,56)"--------"
  53. 340 print"  [206][193][205][197]:"
  54. 345 print"       "left$(d$,64)
  55. 350 print"  [205][193][201][204][201][206][199] [193][196][196][210][197][211][211]:"
  56. 360 print"                  "left$(d$,53)
  57. 370 print"  [211][212][210][197][197][212] [193][196][196][210][197][211][211]:"
  58. 380 print"                 "left$(d$,54)
  59. 390 print"  [195][201][212][217]:                                    ";
  60. 400 print"[211][212][193][212][197]:        [218][201][208]:"
  61. 405 print"       "left$(d$,36);
  62. 407 print"      --------    ----------"
  63. 410 print"  [208][200][207][206][197]: (     )"
  64. 415 print"        "left$(d$,20)
  65. 417 print
  66. 420 m$="[205][197][212][200][207][196] [207][198] [208][193][217][205][197][206][212]:":gosub50
  67. 425 print
  68. 430 print"         [195][200][197][195][203] [207][210] [205][207][206][197][217] [207][210][196][197][210]"
  69. 440 print"  ------ ([205]ake payment to [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199] [201][206] [213].[211]. [198][213][206][196][211] [207][206][204][217].)"
  70. 450 print
  71. 460 print"          [196][201][211][195][207][214][197][210]        [205][195]        [214][201][211][193]        [193][205][197][216]
  72. 465 [153]"  --------        --------  --------    --------"
  73. 470 [153]"  atnlenlen(NULL)(NULL)(NULL)(NULL) #:"
  74. 475 [153]"            "[200](d$,60)
  75. 480 [153]"  val(NULL)(NULL)right$(NULL)atn(NULL)right$(NULL)(NULL) str$atn(NULL)val:"
  76. 485 [153]"                  "[200](d$,54)
  77. 490 [153]"  (NULL)right$chr$(NULL)atn(NULL)(NULL)(NULL)val:"
  78. 495 [153]"            "[200](d$,60)
  79. 497 [153]
  80. 500 [153]"  (NULL)atnright$(NULL) (NULL)(NULL):";
  81. 510 [153][200](sp$,13)"(NULL)oftdisk (NULL)ublishing, (NULL).(NULL). peekox 30008,
  82. 520 m$="[211]hreveport, [204][193]  71130-0008":gosub50
  83. 525 print
  84. 530 m$="1 - 8 0 0 - 8 3 1 - 2 6 9 4":gosub50
  85. 535 print
  86. 540 m$="[208][200][207][206][197] 1-318-221-8718  [198][193][216] 1-318-221-8870":gosub50
  87. 600 print#4:close4
  88. 610 run
  89. 10000 open15,8,15,"s0:marketplace 96":close15:save"marketplace 96",8:end
  90.